Thema Datum  Von Nutzer Rating
Antwort
13.04.2022 09:18:48 Dennis
Solved
Blau For each verschachteln => Offset verwenden
 13.04.2022 10:37:39 Gast85872
NotSolved
13.04.2022 10:38:33 Gast85872
NotSolved
13.04.2022 12:55:43 Dennis
NotSolved
13.04.2022 15:46:45 Gast85872
*****
NotSolved
13.04.2022 16:17:36 Dennis
NotSolved

Ansicht des Beitrags:
Von:
Gast85872		 Datum:
13.04.2022 10:37:39		 Views:
213		 Rating:
     
Antwort:
  Ja
Thema:
For each verschachteln => Offset verwenden

Für jede Zelle im Bereich A3:A30, prüfe, ob daneben in Spalte B, der Wert grösser 0 ist, 

wenn ja, dann merke Dir  "ZelleA x ZelleB".

Könnte man in einer natürlicher Sprache doch so formulieren, oder?

 

Falls ja, schau Dir folgendes mal an: (einfach gehalten mit Ausgabe via MessageBox)

 

    Dim v           As Variant
    Dim c           As Excel.Range
    
    
    For Each c In Range("A3:A30")
        If c.Offset(0, 1).Value <> 0 Then
                    
            v = v & c.Address(0, 0) & " x " & c.Offset(0, 1).Address(0, 0) & Chr(10)
                    
        End If
    Next c
    
    
    MsgBox v

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.04.2022 09:18:48 Dennis
Solved
Blau For each verschachteln => Offset verwenden
 13.04.2022 10:37:39 Gast85872
NotSolved
13.04.2022 10:38:33 Gast85872
NotSolved
13.04.2022 12:55:43 Dennis
NotSolved
13.04.2022 15:46:45 Gast85872
*****
NotSolved
13.04.2022 16:17:36 Dennis
NotSolved